package Wix::Tag::File;

use parent qw/Wix::Tag/;

sub new() {
	my ($class, $args) = @_;
	
	my $self = Wix::Tag->new({TAG => 'File'});
	
	$self->addAttr('Id', $args->{ID});
	$self->addAttr('Name', $args->{NAME});
	$self->addAttr('Source', $args->{SOURCE});
	$self->addAttr('KeyPath', $args->{KEYPATH} || 'yes');
	
	return bless($self, $class);
}

sub addShortcut($) {
	my ($self, $shortcut) = @_;

	$self->addElement('Wix::Tag::Shortcut', $shortcut);	
}

1;